1099 REM DATEI ANLEGEN/OEFFNEN
1100 LF=1:SA=2:DN$="ADRESSEN":RL=72:GOSUB1000: REM REL-DATEI ADRESSEN OEFFNEN
1110 OPEN2,8,3,"INDEX,S,R": REM SEQ-DATEI INDEX ZUM LESEN OEFFNEN
1120 GOSUB4000: REM FEHLERKANAL LESEN
1130 IF ER<>0 THEN AD=0:GOTO1190: REM DATEI NOCH NICHT ANGELEGT
1135 INPUT#2,AD: REM ANZAHL DER DATENSAETZE
1140 FOR I=1 TO AD
1142 INPUT#2,ID$(I),IN(I)
1144 NEXT I: REM INDEXDATEI LESEN
1190 FL=1: REM KENNZEICHEN 'DATEI IM RECHNER'
1192 CLOSE 2: REM SEQ. INDEXDATEI SCHLIESSEN
1195 PRINTCHR$(13)CHR$(13)TAB(7)"FERTIG ZUR [196]ATENEINGABE."
1196 RETURN